﻿Imports System.Collections.Generic
Imports System.Data
Imports Sistema_InformacionNaviera.BC
Imports Sistema_InformacionNaviera.BE
Imports Sistema_InformacionNavier.UTIL
Imports System.Xml

Public Class BuscarUsuarios
    Inherits PaginaBase

    Public s As New PaginaBase

    Public stipoRec As String ' recupera el valor enviado
    Public scodigo As String = String.Empty
    Public sNombre As String



    Dim itemgridview As GridViewRow
    Dim casilla As System.Web.UI.WebControls.CheckBox

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load


        stipoRec = Request.QueryString("tipo").ToString

        If stipoRec = "EMB" Then
            lblTitulo.Text = "Embarcador"
        ElseIf stipoRec = "CON" Then
            lblTitulo.Text = "Consignatario"
        ElseIf stipoRec = "NOT" Then
            lblTitulo.Text = "Notificante"
        ElseIf stipoRec = "CLI" Then
            lblTitulo.Text = "Cliente"
        ElseIf stipoRec = "AA" Then 'agente aduana
            lblTitulo.Text = "Agente Aduana"
        ElseIf stipoRec = "OL" Then 'agente aduana
            lblTitulo.Text = "Operador Logistico"
        End If

        Session("BSTipo") = stipoRec

    End Sub

    Private Sub Listar()

        Dim objEntidadesBE As New EntidadesBE
        Dim objEntidadesBC As New EntidadesBC
        Dim bExito As Boolean = False
        Dim sMensaje As String = String.Empty
        Dim objUtil As New Funciones


        'If stipoRec = "EMB" Then
        '    objEntidadesBE.Tipo = "EMB"
        'ElseIf stipoRec = "CON" Then
        '    objEntidadesBE.Tipo = "CON"
        'ElseIf stipoRec = "NOT" Then
        '    objEntidadesBE.Tipo = "NOT"
        'End If

        objEntidadesBE.Tipo = Session("BSTipo")
        objEntidadesBE.Codigo = txtCodigo.Text.Trim
        objEntidadesBE.Descripcion = txtNombre.Text.Trim

        dgProveedor.DataSource = objEntidadesBC.ListaEntidades(objEntidadesBE)
        dgProveedor.DataBind()

    End Sub

    Protected Sub btnSeleccionar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSeleccionar.Click

        Dim dt As New DataTable
        'Dim objBLImpo As New BillOfLading


        'Dim sRazonSocial As String = String.Empty
        'Dim sRuc As String = String.Empty

        Dim iContador As Integer
        For Each Me.itemgridview In dgProveedor.Rows
            casilla = itemgridview.FindControl("chkSeleccionar")
            If casilla.Checked = True Then
                iContador = iContador + 1
            End If
        Next

        If iContador > 1 Then
            Alerta("Solo se permite seleccionar un registro.", False, String.Empty)
            Exit Sub
        End If



        For Each Me.itemgridview In dgProveedor.Rows
            casilla = itemgridview.FindControl("chkSeleccionar")

            If casilla.Checked = True Then
                scodigo = CType(itemgridview.FindControl("lblcodigo"), Label).Text
                sNombre = CType(itemgridview.FindControl("lblDescripcion"), Label).Text
                'sDescServicio = CType(itemgridview.FindControl("lblDescripcionServicio"), Label).Text

            End If

        Next

        If scodigo = String.Empty Then
            Exit Sub
        End If



        'Response.Write("<script language=Javascript>window.opener.location.reload();</script>")
        Response.Write("<script language=Javascript>window.close();</script>")


        If stipoRec = "EMB" Then
            Session("BSSCodigoEntidadEMB") = scodigo
            Session("BSSNombreEntidadEMB") = sNombre
        ElseIf stipoRec = "CON" Then
            Session("BSSCodigoEntidadCON") = scodigo
            Session("BSSNombreEntidadCON") = sNombre
        ElseIf stipoRec = "NOT" Then
            Session("BSSCodigoEntidadNOT") = scodigo
            Session("BSSNombreEntidadNOT") = sNombre
        ElseIf stipoRec = "CLI" Then
            Session("BSSCodigoEntidadCli") = scodigo
            Session("BSSNombreEntidadCli") = sNombre
        ElseIf stipoRec = "AA" Then
            Session("BSSCodigoEntidadAAd") = scodigo
            Session("BSSNombreEntidadAdd") = sNombre
        ElseIf stipoRec = "OL" Then
            Session("BSSCodigoEntidadOpeLog") = scodigo
            Session("BSSNombreEntidadOpeLog") = sNombre
        End If






    End Sub


    Protected Sub btnSalir_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSalir.Click
        Response.Write("<script language=Javascript>window.close();</script>")
    End Sub

    Sub Cambiarpagina(ByVal sender As Object, ByVal e As GridViewPageEventArgs)

        Dim objEntidadesBE As New EntidadesBE
        Dim objEntidadesBC As New EntidadesBC
        Dim bExito As Boolean = False
        Dim sMensaje As String = String.Empty
        Dim objUtil As New Funciones

        objEntidadesBE.Tipo = Session("BSTipo")
        objEntidadesBE.Codigo = txtCodigo.Text.Trim
        objEntidadesBE.Descripcion = txtNombre.Text.Trim

        dgProveedor.PageIndex = e.NewPageIndex

        dgProveedor.DataSource = objEntidadesBC.ListaEntidades(objEntidadesBE)
        dgProveedor.DataBind()

    End Sub

    Protected Sub btnConsultar_Click1(ByVal sender As Object, ByVal e As EventArgs) Handles btnConsultar.Click
        Listar()
    End Sub
End Class